-- card: 3055 from stack: in
-- bmap block id: 3827
-- flags: 0000
-- background id: 2702
-- name: 
----- HyperTalk script -----
on idle
  put RxMIDI(16) after card field "Receive"  -- display MIDI in
  -- TxMIDI RxMIDI(16)  -- echo MIDI in to MIDI out
end idle



-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=54 top=183 right=205 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Send Msg
----- HyperTalk script -----
on mouseUp
  ask "type in MIDI string to send:"
  TxMIDI it
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=54 top=215 right=237 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Flush buffer
----- HyperTalk script -----
on mouseUp
  put RxMIDI("flush") into dummy     -- flushes receive buffer
end mouseUp



-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=162 top=178 right=273 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Receive


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=71 top=95 right=172 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Keyboard
----- HyperTalk script -----
on mouseDown
  global keymap
  global realNote
  get the clickloc
  put item 1 of it into noteNum
  put 1 + (noteNum - 71) DIV 13 into noteNum
  put word noteNum of keymap into realNote
  TxMIDI 90,realNote,60 -- synth must be MIDI ch #1 or OMNI
end mouseDown

on mouseUp
  global realNote
  TxMIDI 80,realNote,60
end mouseUp


-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=54 top=247 right=269 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear Display
----- HyperTalk script -----
on mouseUp
  put empty into card field "Receive"    -- clear the display field
end mouseUp



-- part contents for card part 4
----- text -----